home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_47_dancing ants script.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  1015 b   |  44 lines
  1. property pSpriteList
  2. global myTimerStart, gSelectRect, gMarqueeRect
  3.  
  4. on beginSprite me
  5.   gSelectRect = rect(0, 0, 0, 0)
  6.   gMarqueeRect = rect(0, 0, 0, 0)
  7. end
  8.  
  9. on exitFrame me
  10.   if sprite(me.spriteNum).left = 620 then
  11.     myTimerStart = 0
  12.     pass()
  13.   else
  14.     if myTimerStart = 0 then
  15.       nothing()
  16.     else
  17.       if (myTimerStart + 250) > the milliSeconds then
  18.         nothing()
  19.       else
  20.         repeat with i in pSpriteList
  21.           if sprite(i).backColor = 0 then
  22.             sprite(i).backColor = 255
  23.           else
  24.             sprite(i).backColor = 0
  25.           end if
  26.           if sprite(i).foreColor = 255 then
  27.             sprite(i).foreColor = 0
  28.             next repeat
  29.           end if
  30.           sprite(i).foreColor = 255
  31.         end repeat
  32.         updateStage()
  33.         myTimerStart = the milliSeconds
  34.       end if
  35.     end if
  36.   end if
  37. end
  38.  
  39. on getPropertyDescriptionList me
  40.   list = [:]
  41.   addProp(list, #pSpriteList, [#comment: "Sprite List", #format: #list, #default: [4, 5, 6, 7]])
  42.   return list
  43. end
  44.